home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / util / rexx / WW-Rech_kor.lha / DIN5008_N299220_PS < prev    next >
Text File  |  1999-02-25  |  4KB  |  214 lines
  1. /* Geschäftsbrief nach DIN 5008 */
  2.  
  3. /*
  4. ** Copyright by Friedrich Siekmeier, all Rights reserved.
  5. ** eMail: 05715090055-0001@btxgate.de oder la.paloma@t-online.de
  6. ** Kaufmannsbrede 1, 32429 Minden, Tel.: (0571) 52052
  7. ** Version 2.99220_PostScript
  8. ** Dieses Programm ist Cardware. Persönliche Anpassung nach Rücksprache möglich!
  9. ** Benutzung des Programms auf eigene Gefahr. Für jegliche Beschädigung wird keinerlei Haftung übernommen!
  10. ** ;-))
  11. */
  12.  
  13. OPTIONS RESULTS
  14.  
  15. IF ~SHOW(L,"rexxreqtools.library") THEN DO
  16.    ADDLIB("rexxreqtools.library",0,-30,0)
  17. END
  18.  
  19. IF ~SHOW(P,"WORDWORTH.1") THEN DO
  20.     ADDRESS WORDWORTH.2
  21. END
  22.  
  23. OPEN FILENAME 'WordWorth:Documents/Templates/Normal'
  24.  
  25. DOCUMENT A4 '2.5' '2.5' '1.4' '0.64'
  26.  
  27. FITWIDTH    
  28.  
  29. PARAGRAPH 0 0 0 LEFT AUTO SINGLE NONE 4
  30.  
  31. FONT NAME 'PS_Bookman' SIZE 10
  32. PLAIN
  33.  
  34. SETTAB LEFT '14.5'
  35.  
  36. TEXT 'XYZ-GmbH & Co.KG    Benutzerstraße XX'
  37. NEWPARAGRAPH
  38. TEXT 'Benutzerfirma    00000 Benutzerstadt'
  39. NEWPARAGRAPH
  40. TEXT '    Tel.: (0571) 5 20 52'
  41. NEWPARAGRAPH
  42. TEXT '    Fax: (0571) 5 09 00 55'
  43.  
  44. NEWPARAGRAPH
  45. NEWPARAGRAPH
  46.  
  47. PARAGRAPH 0 0 0 LEFT AUTO SINGLE NONE 4
  48. FONT NAME 'PS_Bookman' SIZE 6
  49. SINGLEUNDERLINE
  50. TEXT 'Benutzerfirma, Benutzerstraße XX, 00000 Benutzerstadt'
  51.  
  52. NEWPARAGRAPH
  53. PARAGRAPH 0 0 0 LEFT AUTO SINGLE NONE NONE
  54.  
  55. FONT NAME 'PS_Bookman' SIZE 12
  56.  
  57. PLAIN
  58.  
  59. /*----------------------------*/
  60.  
  61. KAW = rtezrequest('Neukunde?','Ja|_Nein')
  62. IF KAW = 0 THEN CALL "Kunden:Auswahl"
  63. IF KAW = 1 THEN CALL NEUKUNDE
  64.  
  65. /*----------------------------*/
  66.  
  67.  
  68. TABS
  69.  
  70. NEWPARAGRAPH
  71. NEWPARAGRAPH
  72. NEWPARAGRAPH
  73. NEWPARAGRAPH
  74. NEWPARAGRAPH
  75.  
  76. SETTAB LEFT '6.5'
  77. SETTAB LEFT '12.5'
  78. SETTAB LEFT '16.51'
  79.  
  80. PARAGRAPH 0 0 0 LEFT AUTO SINGLE NONE 4
  81.  
  82. /*Jetzt kommt die Bezugszeile im Brief.*/
  83. FONT NAME 'PS_Bookman' SIZE 7
  84.  
  85. PLAIN
  86.  
  87. TEXT 'Ihre Nachricht / Zeichen    '
  88. TEXT 'Unsere Nachricht / Zeichen    '
  89. TEXT 'Durchwahl    '
  90.  
  91. /* WIZARDREQ TITLE 'Standort' LABEL 'Bitte Ihren Standortnamen eingeben:' LABEL '' TEXTBOX 1 'Or_t:' BUTTON 1 '_Ok' BUTTON '-1' 'A_bbruch'
  92.  
  93. IF RESULT = -1 THEN DO
  94.     CLOSE FORCE
  95. END
  96.  
  97. WIZARD_GETTEXTBOX 1
  98. Standort = RESULT
  99. TEXT Standort */
  100.  
  101. TEXT '00000 Benutzerstadt'
  102.  
  103. NEWPARAGRAPH
  104.  
  105. WIZARDREQ TITLE 'Ihr Zeichen' LABEL 'Bitte Ihre Zeichen, Ihr Datum eingeben:' LABEL '' TEXTBOX 1 '_Zeichen/Datum:' BUTTON 1 '_Ok' BUTTON '-1' 'A_bbruch'
  106.  
  107. IF RESULT = -1 THEN DO
  108.     CLOSE FORCE
  109. END
  110.  
  111. WIZARD_GETTEXTBOX 1
  112. Sign = RESULT
  113. TEXT Sign
  114.  
  115. TEXT '    '
  116.  
  117. WIZARDREQ TITLE 'Unser Zeichen' LABEL 'Bitte unsere Zeichen, unser Datum eingeben:' LABEL '' TEXTBOX 1 '_Zeichen/Datum:' BUTTON 1 '_Ok' BUTTON '-1' 'A_bbruch'
  118.  
  119. IF RESULT = -1 THEN DO
  120.     CLOSE FORCE
  121. END
  122.  
  123. WIZARD_GETTEXTBOX 1
  124. USign = RESULT
  125. TEXT USign
  126.  
  127.  
  128. TEXT '    (0571)  5 20 52    '
  129.  
  130. INSERTDATE
  131.  
  132. NEWPARAGRAPH
  133. NEWPARAGRAPH
  134. NEWPARAGRAPH
  135.  
  136. FONT NAME 'PS_Bookman' SIZE 12
  137. PLAIN
  138.  
  139. WIZARDREQ TITLE 'Betreff' LABEL 'Bitte Ihren Betreff eingeben:' LABEL '' TEXTBOX 1 'Be_treff:' BUTTON 1 '_Ok' BUTTON '-1' 'A_bbruch'
  140.  
  141. IF RESULT = -1 THEN DO
  142.     CLOSE FORCE
  143. END
  144.  
  145. WIZARD_GETTEXTBOX 1
  146. Btreff = RESULT
  147. TEXT Btreff
  148.  
  149. NEWPARAGRAPH
  150. NEWPARAGRAPH
  151. NEWPARAGRAPH
  152.  
  153. DRAWLINE 1 '0' '9.43' '1' '9.43' '1' 'Schwarz'
  154. DRAWLINE 1 '0' '14.55' '0.5' '14.55' '0.5' 'Schwarz'
  155. DRAWLINE 1 '0' '19.86' '1' '19.86' '1' 'Schwarz'
  156.  
  157.  
  158. EXIT
  159.  
  160. /*----------------------------*/
  161.  
  162. NEUKUNDE:
  163.  
  164. /*Vorbereitung der Dateneingabe in String-Box für die Empfängerdaten.*/
  165. WIZARDREQ TITLE 'Briefanschrift' LABEL '' TEXTBOX 1 'Zustell_vermerk:' TEXTBOX 2 '_Empfänger:' TEXTBOX 3 '_Zusatz:' TEXTBOX 4 '_Straße:' TEXTBOX 5 'Post_fach:' TEXTBOX 6 '_Plz:' TEXTBOX 7 'O_rt:' BUTTON 1 '_Ok' BUTTON '-1' 'A_bbruch'
  166.  
  167. /*Sollte es zu einem Fehler kommen, dann wird durch Betätigen des Abbruch-Schalters das Arbeitsblatt zum Standardblatt wieder aufbereitet.*/
  168. IF RESULT = -1 THEN DO
  169.     CLOSE FORCE
  170. END
  171.  
  172. /*Ausgabe der Empfängerdaten mit Plazierung im Brief.*/
  173. WIZARD_GETTEXTBOX 1
  174. Letter = RESULT
  175. TEXT Letter
  176.  
  177. NEWPARAGRAPH
  178.  
  179. WIZARD_GETTEXTBOX 2
  180. Owner = RESULT
  181. TEXT Owner
  182.  
  183. NEWPARAGRAPH
  184.  
  185. WIZARD_GETTEXTBOX 3
  186. Plus = RESULT
  187. TEXT Plus
  188.  
  189. NEWPARAGRAPH
  190.  
  191. WIZARD_GETTEXTBOX 4
  192. Road = RESULT
  193. TEXT Road
  194.  
  195. WIZARD_GETTEXTBOX 5
  196. Post = RESULT
  197. TEXT Post
  198.  
  199. NEWPARAGRAPH
  200. NEWPARAGRAPH
  201.  
  202. WIZARD_GETTEXTBOX 6
  203. Number = RESULT
  204. TEXT Number
  205. TEXT '  '
  206.  
  207. BOLD
  208. SINGLEUNDERLINE
  209.  
  210. WIZARD_GETTEXTBOX 7
  211. Town = RESULT
  212. TEXT Town
  213.  
  214. RETURN